<%

Public Function FazNumero(nNumero)


    response.Write("nNumero1: " & nNumero & "<br><br>")
	If Not IsNumeric(trim(nNumero)) Then
	
		FazNumero = "0"
		
		Exit Function
	
	End If
	
	If nNumero - Int(nNumero) = 0 And InStr(1, nNumero, ",", vbTextCompare) = 0 Then
	
		FazNumero = nNumero
			
	Else
		
	    s5 = FormatNumber(nNumero,2,,,0)
	    
	    n3 = InStr(1, s5, ",", vbTextCompare)
	    
	    If n3 = 0 Then
	    
	        FazNumero = s5
	    
	    Else
	    
	        FazNumero = Left(s5, n3 - 1)
	        
	        FazNumero = FazNumero & "."
	        
	        FazNumero = FazNumero & Right(s5, Len(s5) - n3)
	    
	    End If
	    
	End If	 
	
	response.Write("nNumero2: " & nNumero & "<br><br>")   
    
    Exit Function

End Function

%>